(frame-initialize): Set cursor-color last.

diff --git a/lisp/frame.el b/lisp/frame.el
index a255c586401378ef36398c726b77591c530e3f22..f4e5e09eddfe610dec84d306f8ac682b5e98e106 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -116,10 +116,12 @@ These supercede the values given in `default-frame-alist'.")
                  (let ((params (frame-parameters frame-initial-frame)))
                    (modify-frame-parameters
                     frame-initial-frame
-                    (list (cons 'foreground-color (cdr (assq 'background-color params)))
+                    ;; Must set cursor-color after background color.
+                    ;; So put it first.
+                    (list (cons 'cursor-color (cdr (assq 'background-color params)))
+                          (cons 'foreground-color (cdr (assq 'background-color params)))
                           (cons 'background-color (cdr (assq 'foreground-color params)))
                           (cons 'mouse-color (cdr (assq 'background-color params)))
-                          (cons 'cursor-color (cdr (assq 'background-color params)))
                           (cons 'border-color (cdr (assq 'background-color params)))))))))
 
        ;; At this point, we know that we have a frame open, so we